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PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 
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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR 
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RRR 

RRR 
RRRRRRRRRRRR 
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RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 
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**F 1 LE*#]D**PASWRIRFD 


-—v 


PPPPPPPP AAAAAA SSSSSSSS_ WW WW RRRRRRRR III] RRRRRRRR FFFFFFFFFF DDODDDDDD . 
PPPPPPPP AAAAAA SSSSSSSS WW WW RRRRRRRR III RRRRRRRR FFFFFFFFFF DDDDDDDD ; 
PP PP AA AA SS ‘etal Ww RR I] RR RR FF DD DD ; 
PP PP AA AA SS wil Ww RR RR II RR RR FF DD DD : 
PP PP AA AA SS WW WW RR RR I] RR RR FF DD DD ; 
PP PP AA AA SS ed WW RR I] RR RR FF DD DD : 
PPPPPPPP af AA SSSSSS WW WW RRRRRRRR II RRRRRRRR FFFFFFFF DD DD ; 
PPPPPPPP AA AA SSSSSS bel WW RRRRRRRR I] RRRRRRRR FFFFFFFF DD DD ; 
PP AAAAAAAAAA SS WW WW WW RR RR II RR RR FF DD DD ; 
PP AAAAAAAAAA SS WW WW WW RR RR I] RR RR FF DD DD ; 
PP AA Ab SS WWWW WWWW RR RR II RR RR FF DD DD eoee : 
PP AA AA SS WWWW WWwWWw RR RR I] RR RR FF DD DD cece ; 
PP Ab AA SSSSSSSS ‘ald Ww RR RR III! RR RR FF DDDDDDDD cove : 
PP AA AA SSSSSSSS ‘ld Ww RR RR HII! RR RR FF DDDDDDDD cece : 
LL IIIII] SSSSSSSS : 
LL III! SSSSSSSS : 
LL I] SS : 
LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL Il SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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tt tt ot Ot OOO OO OS OO OS HS SS SS YS SS SS 2 OOO 
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D. floating in F format 16-Sep-1984 02:23:54 
. 1328007138 9:83:36 PASRTL.SR 
aD float 


MODULE PASSWRITE_REALF_D ( aTATLe ‘Write 
IDENT = '1-003' 


BEGIN 


LR RARE REAR RERRARAEAAERERAEEAEEEEEEE ERE RAAAAEE ERE RAERAEEERREREERKRREREE EE 


'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE 
ONLY IN ACCORDANCE WITH THE TER 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. TH 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHER TO AN 

'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF HEREBY 


*® 
® 
® 
® 
® 
N t 
fe 
* 
® 
7 
ie TRANSFERRED. > 
® 
* 
® 
® 
® 
® 
* 
® 
® 
® 


D COP 
WITH 
Y 0 
E 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ee PORaT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS Bl 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


Vee EERE RRA 
' 


lee 
FACILITY: 


ABSTRACT: 


This module contains a procedure which writes a D_floating in 
fixed-point notation to a textfile. 


ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 

1-001 - Original. SBL 1-April-1981 


1-002 - Make total-width a Longuord. SBL 30-June-1982 
1-003 = Allocate space for field width fraction specification. 


Pascal Language Support 


DG 19-Oct-1983 


Ax-11 Oh iegete V4.0-74 Page 1 
SRC JPASWRIRFD.852;1 (1) 


ing in F format‘ 
File: PASWRIRFD.B32 Edit: DG1003 
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REALF Write a D_floating in F format 
Declarations 


2, ll 
1-003 


! Externals, Linkages, PSECTs, structures 


@ 
—_~ 
—-mH 
-c 
er 
xe 
ew 
~n 
oo 
we 
ee 
ew 
-——- 
ec 
33 
Ww 
w> 
ad 
ot 
=<z> 
*. >o 
- o2 
o a2 
oe oO ee 
~” ee “a 
- 2 Oo a 1 
”“ Oo c td [vas 
Cc = a ” ra | 
o fF ” - oat thd 
—- = <= 4 mw ” 
-~ 2 a w wa ) 
oo - °° = wo oO 
j- «*. 2 4 =z oc 2 ee 
oe w coal oO mt w 
~ 2 aad Yv ee we Pe w wo OO w 
re) - a —_- & & =z<«t2a 
o w a — occa oO o o «zo 
a 2 oe ee eS ses. © Be BOS Ff 
- o A ” w ” _ 
Oo us w ann oO _— a ” 
— at ac =! e<aic az 4 aa | 
- oO — 2 <aa Vv | uw 2 
—- «x = = <= i=) _ 3 
aoa a co _ = = w o oO 
” w oO 
Pe ac ome “ Oe ee ee ee ee ee 
LLL OO CO OC Ce 
POKOUIMTDAOM— CUM TN OR. DAO MUM TNOR. DOHO— TUM 
FDL IOI OO CSO COI OPP PPP PY WT AT AT AT 
SOOCCCC kK eK KKK KC CK KC eC CC OCC OC CCC COCK KK 
(ale leleleleloleleleleolelelelelelelelelolelelelolololololololol~) 


OM CUM TNOPR- DOO UM ST 


Wo 
MNANIAMAAWAILN OODODOOO0O 


67 
68 
69 


LINTOOLON = Line too Long ‘ res Gang 
NEGWIDDIG = negative Width or Digits specification is not allowed 


7 
PASSWRITE_REALF Write a D_floating in F format 1$-sep=19 4 98:43:38 AX-11 Bliss-32 tate as Page 3) 
1-003 PASSWRITE_REALF_D = Write D_floating in F forma 14-Sep-1984 52:06 PASRTL.SRCJPASWRIRFD.B32;1 (3) | 
; 0144 1 XSBITL ‘'PASSWRITE_REALF_D = Write D_floating in F format to textfile' | 
H 84 Bie 1 GLOBAL ROUTINE PASSWRITE_REALF_D ( 
; 8 146 1 PFV: 7 SPASSPFU_FILE_VARIABLE, ' File variable 
; 86 0147 1 VALUE_0, VALUE. 1 ' Value to write 
: 87 O148 1 TOTAL-WIDTH: SIGNED, i Total field width | 
> »=6888 149 1 FRAC_BIGITS: SIGNED, ' Digits in fraction 
; 0150 1 ERROR ! Error unwind address 
; 90 0151 1 ): NOVALUE = 
ie )| 8126 1 
; 4 01535 1 S44 
H a7 Bi22 : FUNCTIONAL DESCRIPTION: 
: $18 1! This procedure writes a D_floating value in fixed-point notation 
; 0157 1! to the specified textfile. 
; OF 0158 1! 
5 98 0159 1 ! CALLING SEQUENCE: | 
; J. 0160 1! 
: 100 0161 1: CALL PASSWRITE_REALF_D (PFV.mr.r, VALUE.rd.v , TOTAL_WIDTH.rl.v 
101 O16¢ 1 , FRACOIGITS.rl.v C, ERROR. ja.r]J) | 
: 102 0165 1! 
: 103 0164 1 ! FORMAL PARAMETERS: 
3: 104 0165 1! 
s 105 0166 1: PFV - The Pascal File Variable (PFV) passed reference. 
: 198 3h a4 : The structure of the PFV is defined in PASPFV.REQ. | 
: 108 0169 1 VALUE - The D_floating value to write, by immediate value. 
: 199 8159 : Note that this takes up two argument List positions. | 
; 111 O17 1! TOTAL_WIDTH - Total field width. | 
; 112 0173 1: 
i 113 O176 1 FRAC_DIGITS - Number of digits in fraction. | 
; + pi76 : ERROR - Optional. Address to unwind to if an error occurs. | 
s WW? 0178 1 ! IMPLICIT INPUTS: 
: 118 0179 1: | 
: «119 0180 1! NONE 
: 120 0181 1! 
s Yel BiS¢ 1 ! IMPLICIT OUTPUTS: 
3 is¢ 0183 1! 
s Ye 0184 1! NONE 
> 126 0185 1! 
s 125 0186 1 ! ROUTINE VALUE: 
3 1$6 3h H4 1! 
. y 188 1! NONE 
: 128 0189 1! 
3 44 0190 1 ! SIDE EFFECTS: 
> 130 0191 1 | cs Saglieg tar 
3 13 B198 ' : If the file is the standard file OUTPUT, it is implicitly opened. 
: 133 Bi98 1 ! SIGNALLED ERRORS: | 
: 134 199 1! 
3; «6135 138 1! 
3; «136 197 1! 
: if 198 1! 
: 138 0199 1! 
: 139 0200 1 


~™ 
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PASSWRITE_REALF Write a D_floating in F format 16-Sep-1984 02:23:54 AX=-11 Bliss-32 V4.0-74 Pa 4) 
1-008 SSWRITETREALF_Do= Write D. floating in F forma 12286871382 93:83:36 PASRTL SREIPASHRIRED B92: 1 8 (3) 
01 BEGIN 
08 BUILTIN 
be ACTUALCOUNT; 
0 LOCAL 
89 FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 
08 FIELD WIDTH: SIGNED, ! Minimum/actual width 
09 REMAINING _WIDTH ! Maximum width 
PFV_ADDR: VOLATILE, i Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


+ 
Get ERROR parameter, if present. 
4 BCTUAL COUNT () GEQU 6 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFVI; ! Set PFV address 


MEWN —O DOONAN WN OVD ONAULSWN—O 


"validate PFV and get PFV. 

PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 

set unwind action to unlock file. 

UNWIND_ACT = PASSK_UNWIND_UNLOCK; 

po common initialization. 

PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBI; FCB); 


'¢ 
Get field width and remaining width. Check for invalid width or digits. 


FIELD WIDTH = .TOTAL_WIDTH; | 
Lf (-FIELD_WIDTH LSS~O) OR (.FRAC DIGITS LSS 0) | 


SPAS$IO_ERROR (PAS$_NEGWIDDIG,0); 
REMAINING _WIDTH = .FCB TFCBSA_RECORD. END) - .FCB CFCBSA_RECORD_CURI; 
'¢ 
: Convert to text and put in record buffer. If an error occurs, signal it. 


ee ee ee ee ce ae ee ae ae ee ee a a ce ee a a ee ce ce ce ee ce ec ee a ee ee ee ee ee ee ee ee ee ed ed ed ed 
MPwn— 


Pees NS NUN O PAAAGAAASASMIMMNMNNMNIN SSL LLL ES 


POPIPIPIPIPINILMPYPININYPNINIPYINININININININININIPINIPIPINIPINIPIPIPINPINYNINIPINPIPIPIPIPINIPIPUPOPONIPPONPOPNyPY 


Se Be Be Ge Be Be Se Se Fe Se Se Se Se Ge Be Se Ge Be Se Ge Se Se Ge Se Be Se Se Se Se Fe Se Ge Se Se Se Ss Be Se Se Se Oe oe FH SF Se Ss Oe Se Se Oe OHSS Se Os Se os e« 


WMVIVIMUIVIVIUM 


beh ctigtiecidageies eee 


te SyRITE. REALF Brite 


| 

3 ating in F for 16-56 1984 AX-11 Bliss-32 V4.0-74 Pa 5 
orite tf pW rite > "floating in F forma 1 2300-1382 98: $3 '3¢ PASRTL” SR ROIP runted 82:1 ” 3) | 
IF NOT PASSCVT_D_T (VALUE DP 

CFCBSA A. RECORD_CUR], i Destination 

WIDTH 

2 
1 


—— 


riety. P Mad mapehen by width 
»REMA MAIN NING_WIDTH, Maximum w 
-FRAC_DIGITS) ! Fraction digits 


EN 
SPASSIO_ERROR (PASS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); 


'¢ 
‘ Advance buffer pointer. 


FCB CiCBSA_RECORD_CUR) = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; 

14 

i Call WRITE epilogue routine to move the last enarenter written to the 

‘ user's buffer and to unlock the file variable 

PASSSEND_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBI); 

RETURN; 

END; ! End of routine PASSWRITE_REALF_D 


OOVOGCCOCCOONO 


POPIPOPIPOPINIPYPIPYNIPYNININININIPYPIPNPPononnyd 


COO NINN NIN NNN NNO AA AOAAOOAAOOUM a 
NO ODONAUESWN ("COON AUES WOOO b 


MoPEPoORPoPoTonofofonons 
eo fofololelofololelelololq) 


NNR 2 2 SO 


-TITLE PASSWRITE_REALF_D orn a D_floating in F forma 
-IDENT \1-003\ 


-EXTRN PASSWRITE_ REALF D 
~EXTRN PASSURITED REALF _D 


~PSECT Re SHR, PIC,2 


O1FC 00000 ENTRY PASSURITE_ REALF_D, Save R2,R3,R4,R5,R6,R7,~ ; 0145) 

$8 000000006 90 9 $0098 MOVAB —PASSSSIGNAL, RB 3 | 

04 AE ce 000C CLRO ERROR ADDR > 0201 | 

oo ower eE De boots nok | Seenere ; | 

06 6c 35 a9? CMPB Bb), #6 : 0221, 

1F QOO1A BLSSU : 

04 AE 18 AC OD 1C MOVL ERROR, ERROR_ADDR F 0233 | 

oc ae = & t 4 Bt Oks “pre apon a Sees 

000000006 00 if 3 JSB PASSSVACIDATE_PFV : 0 3 

08 if DO 0002F MOVL UN ND_A > 0237 | 
000000006 00 16 00033 JSB PASSSINIT_ORITE : 0243 


Be Se Be Se Be Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se FH Ge FH Se Se Se Se ee Fe Se SH Ss Se we Se FE Se Se Se Se SH Se Se Fe Sees Oe Se Se Se Se SH Se ee 


- 


PASSWRITE_REALF Writ 
1-003 PASS 


vw 
oo 


; Routine Size: Routine Base: 


1 
1 !<BLF/PAGE> 


006 


7 
000000006 


mATOO 
Ocoee &o 


04 


format 
Write D_floating in F forma 


05 
aC 


CoonNoO 


WM OMUM NMMON fromm p 


on COOOUMO?r>r ru PP 


om 


_PASSCODE 


C909 09 SII INI AO MII = 
NMEM S OPMOM OM OONLMO ro 


96:83:38 AX-11 at V4.0-74 


PASRTL.SRCJPASWRIRFD.B32;1 
TOTAL_WIDTH, FIELD_WIDTH 
FRAC_DIGITS 

3$ 

=(SP) 

#PASSK_NEGWIDDIG, -(SP) 

#2, PASSS$SIGNAL 

=20(FCB), -16(FCB), REMAINING_WIDTH 
FRAC_DIGITS 

REMAINING WIDTH 

PEELD WIDTH 

-20(F CB) 

VALUE _0 

#5, PASS$CVT_D_T 

REMAINING _WIDTH, FIELD_WIDTH, -(SP) 


#PASSK_LINTOOLON, =(SP) 
#3, PASSSSIGNAL 


FIELD_WIDTH, -20(FCB) 
PASSSEND_WRITE 


Save nothing 
8 RO 


Pp 
4(AP), =(SP) 
#3, PASSSIO_HANDLER 


PASSWRITE_REALF 
1-003 


TT ee eee SS) nee 
= 


ViFWN—OOCOnNOu 


rw 
—OO@ 


are 
OnNOW 


MIPIMOPOPOPOPOPNoTn 
= 


AOEAAMMMMNNNNI UT 
WO OOBNAUSWN—0O”O 


MOMOPMoPooNoPoTnorononorng 


oonon 
SOOOOOOCOOOOCOOCOSOOCOCOOOOSOSOOSOOSOOOCOOOCOSOOCOCOOOOOOOOOOOCOOOOOOOOOCOO «(UV 


WANA AAI WIAA AAAI NIAAA AAA AAAI NIA 


a 


Be Se Se Se Se Se Ge Se Ge Ge Fe Se Ge Se Ge Se Fe Fe Se Ge Fe Ge Ge FH Ge SH Se Be Ge Se Oe Fe Se SH Se Fe we Se Se Se Se Se Se Se Se Se Se Se oe Se Ge Se Se Se Se @eee 


VALUE 


TOTAL_WIDTH: SIGNED, 
FRAC_BIGITS: SIGNED, 
ERROR 


) : NOVALUE = 
'e4 


FUNCTIONAL DESCRIPTION: 

CALLING SEQUENCE: 

FORMAL PARAMETERS: 
TOTAL_WIDTH - 


FRAC_DIGITS - 
ERROR 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

! ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 

SIGNALLED ERRORS: 


t 1S-se $1984 02:23:54 
- Write F_floating in F form 12-Sep-19 4 9:83:38 PASRTL.SRC 
F_floating in F format 


D_floating in F forma 

EV_REALF _ 

ZSBTTL "PASSWRITEV_REALF_D = Write 
GLOBAL R 


OUTINE PASSWRITEU_REALF_D ( 
STRING LINE: REF VECTOR C, WORD), 
»VALUE1 


This procedure writes a D_floating in fixed-point 
to the specified string. 


CALL PASSWRITEV_REALF 


D (MAX_LENGTH.rw.v 
VALUE.rd.v, TOTAL_QID 


TH.rl.v, FRAC_DIGI 


The width of the field to write. 
The number of digits in the fraction. 


See PASSWRITE_REALF_D 


AX-11 Oi legate v4.0- 


to string’ 


Maximum Length of string 
String to write to 

Value to write 

Total field width 
Fraction digits 

Error unwind address 


format 


STRING_LINE.wvt.r 


, ERROR.j.rJ) 


MAX_LENGTH - The maximum Length of STRING_LINE. 
STRING_LINE - A varying string to which the output will be appended. 
VALUE - The value to write. 


If specified, the address to unwind to 
in case of an error. 


PASWRIRFD 


007¢ 
se ate: 3 
E 04 


H 7 
PASSWRITE_REALF Write a D floating in F format 16-Sep-1984 02:23:54 AX-11 Bliss-32 V4.0-74 
1-008 PASSWRITEV_REALF_D = Write F_floating in F form 13288-1382 95:83:36 PASRTL.SRCJPASWRIRFD.B52;1 
; 2 42 1 
: es rk BEGIN 
; 44 
; 285 45 LOCAL 
; Hy] 6 PFV: SPASSPFYV an VARTABLE. ' Pascal File Variable 
: 28 4 ARG_LIST: VECTOR (6, LONG), ' Argument List 
; 288 48 PFV_ADDR: VOLATILE, ' Enable argument 
; 289 49 UNWIND_ACT: VOLATILE, ! Enable argument 
: $4 8 29 ERROR_ADDR: VOLATILE; ! Enable argument 
: 29 053¢ BUILTIN 
: 32 8 2 ACTUALCOUNT; ! Count of arguments 
: 295 0355 ENABLE 
4 96 0396 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
: 298 0358 ‘+ 
: 299 0359 ' Get ERROR parameter, if present. 
: 300 0360 te 
; 301 0361 
: $08 6306 IF ACTUALCOUNT () GEQU 6 
; 304 0364 ERROR_ADDR = .ERROR; ! Set unwind address 
3 $09 ty] PFV_ADDR = PFV CPFVSR_PFVI; ' Set PFV address 
; 308 0368 \4 
3 44 0369 ' Set up ARG_LIST. 
: 310 0370 = 
: 311 0371 
; a8 OR76 ARG_LIST (0) = 5; ! Five arguments 
; 31 037 ARG-LIST C1] = PFV CPFVSR_PFV; i PFV address 
; 314 0374 ARG_LIST $4 = .VALUEO; ' Value to write 
; 15 0375 ARG_LIST J = .VALUE1; . 
; 16 0376 ARG_LIST ¢ = ,TOTAL_WIDTH; ' Field width 
: af oer ARG_LIST (5) = .FRAC_BIGITS; ! Fraction digits 
: 319 0379 ; '¢ 
3 $9 0380 ' Call PASS$DO_WRITEV to do the work, giving it the address of 
; 321 0381 i PASSWRITE_REALF_D to call. 
: 355 0383 r 
; 34 0384 eS ee aint Bey OR PUNE -MAX_LENGTH, STRING_LINE COJ, ARG_LIST, 
; 58 $386 z nities 
: 327 0387 RETURN; 
: 328 0388 P 
3; 329 0389 1 END; ! End of routine PAS$SWRITEV_REALF_D 


-EXTRN PASS$S$DO_WRITEV 
0 -ENTRY PAsSURL TEV REALE DB, Save R2,R3,R4,R5,R6 
° SUBL2 #48, SP 
00 


CLRL ERROR_ADDR 
CLROQ UNWIND_ACT 


PASSWRITE_REALF Write a D_ floating in F forma 
1-003 PASSURITED  REALF 

60 

6 


6E 

8 AE 

C AE 

10 AE 

14 AE 
1¢ 


7E 
000000006 00 


; Routine Size: 111 bytes, 


: 330 0390 1 
331 0391 1 !<BLF/PAGE> 


000000 


- Write F “Floating in F form 1228 
OO3E CF A 
HT Sa 
1¢ AC 00 1 
24 Ag 3 18 
‘ 0 0010 
Ge AE Hb ante 
FF24 CF 9E $0 0 
i AEE 90039 
68 Ac BO 90030 
04 AC 3C 00041 
00G 00 16 00045 
4 00048 
gta BP Ses 
CC AO 9F 00056 
DO «AO 9F 00059 
D4 ag 9F 0005C 
03 DD 0005F 
5E DD 00061 
04 Ac 7D he 
03 FB 0006 
04 0006E 


Routine Base: 


PASSCODE + O0A8 


é-se0-1 


= 
wr 


2$: 


=1982 98:83:38 FOMSAT OtdeSpaeuntary o$2-1 
2s (FP) 
(AP), #6 
ERROR ERROR_ADDR 
PFV, PFV_ADDR 
a5, CIsT 


LIST+8 
TOTA Th “ARG GgLisi+16 
Cert E REAL 


STRING LINE, af 
MAX_LENGTH 
PASS$DO CuRiTeG 


Sexe)” nothing 


4(AP), =(SP) 
#3, PAS$$1O_ HANDLER 


Be Se Se Se Ge Ge Ge Fe Fe Fe Se Fe Fe Se Be Fe Fe Se Se Fe Se Fe Se Fe Fe Be Be 


2 amen nee eee 


ee _ 
} 
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PASSWRITE_REALF Write a ating in F format 18-5 Sep-19 4 AX-11 Bliss-32 V4.0 Pa 10 
1-003 PAS fori Te0 R ALF "3 - Write F_floating in F form 14-S Sep -1 1984 93: 3: 2g PASRTL.SRC PASWRIRED. 382: 31 a (5) 
: 336 033 } 1 END ! End of module PASSWRITE_REALF_D 
: 94 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: PASSCODE 279 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
er Symbols oconseoe Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
3 ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 
; COMMAND QUALIFIERS 
: PFE EECR MEF DELS, DME TIAL. OPT IAL EE) ANOTRAERN FO, SSS 2PREUR LAF O/OR ICR IE PATER MSRC$:F © \WRIRFD/UPDATE=(ENHS$: PASWRIRFD 
size: 279 code + 0 data bytes 
un Time 0:07.4 
phy Time: 00:16.2 
Lines/CPU Min: 194 


3 
Lexemes/CPU-Min: 12956 
poet | Used: 82 pages 
Compilation Complete 
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